home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invenzioni & Inventori
/
Invenzioni and Inventori (Eclectica Publishing) (1996).ISO
/
invenzio
/
vivid
/
getat2.dir
/
00083_Script_83
< prev
next >
Wrap
Text File
|
1996-11-09
|
1KB
|
42 lines
on mouseUp
set SPRITE_=45
global revel_x,revel_y
global PaginaCorrente,BOOK,LARGHEZZA,VUOTO,PrimaIcona,lista_delle_icone
set Current_Page=getat(BOOK,PaginaCorrente)
set numero_icona=3
set Icona=getat(lista_delle_icone,numero_icona)
if the cast_number of Icona = VUOTO then exit
set Count=1
set Loop=0
--loop nel caso sia un'icona di testo...
if the text of icona<>EMPTY then
set Loop to 34
set Current_Object=getat(Current_Page,Count)
--*****************************************************
set cast_ = 1
set the text of cast cast_ to the text of icona
set the visible of sprite Loop to TRUE
set the visible of sprite 39 to false
--*****************************************************
set Count=Count+1
else
set Count=6
set Loop to 39
set Current_Object=getat(Current_Page,Count)
--*****************************************************
set the castnum of sprite Loop to the cast_number of Icona
set the visible of sprite Loop to TRUE
set the visible of sprite 34 to false
--MODIFICA (caso per gli altri oggetti...)
--*****************************************************
set Count=Count+1
end if
UpdateStage
end